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Hit &flt View Favorites Tools He* 



|£5 Oavfinp m»<5 

|£& shapes 

09 £3 Symbol* 
B *J My Nctvwk Places 
SI 0 &rtre Network 
ffi ^ 0> DrfV* (B) cn csdrcfe (pffiwp<) 
83 t£ Ephylt Amp on asshole fptfcspc) 
5) ftp on rovw.pfojectmeea.ofo 

B3 © Suiting Technic jcs for Aflrephoflopjaohv.file* on Jeffs l^jfnp 0 
B & J* OS on wstwfe (Office*) 
& Weroeoft Visual Studio on asshofc CCrfflcepO 
68 y My WebSite* on MCN 
5 §? netfokJer on asshole foffioeo^J 
9B Sp? pa shr fldr on *rttwte (Oftesoe) 
3 S PASS DSP dsvetepmem on esshote (Officer*:) 
EB jJa bus&iesatosues 
date sheets 

EE £3 Funrtton Generator M 
B £3 output board 

63 £3 cardl cjer&eri i-jjjj 
$ a card ipefbert j 'M 

03 £3 CARD3GERB315 

£3 des^n notes 
K £3 HwB ISA Connector Jfl« 
ffi £3 pa tfr flfr ygj 

1RSS5' 



Mama _ 

reference tiroift desfcn.btt 
13B dBtMheetpm 
3 jjjjwhoopy.xto 

COMPOrOTT DESIGNATORS . . . 

16dlAtoDbrd0OM,jds 



Size I Type ^ 



1103 Text Document 

1,11 1KB PRNFfc 

30103 MterOtuftExttl Worksheet 

219 KB wcrosoftEjtoei wortaheet 

241 KB Microsoft Exofil Woflfflheei 1/B/TOfli $:-*lP>l 

53Kd MKTOscft Excel wortaheet 1 1/19/2000 io. 2D am 



Ijbatettodfled | 

ll/ll/2CM~lL?7 J AM 
3/10/2001 1:20 PM 
l/W»019:36PM 
1/21/2001 1:07PM 
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.odule2 - l 

Top of the module 

iption Explicit 

Page 2 



Begin procedure 

Sub FindDesignatorLocation ( ) 

Dim Caps As Range, Res As Range, ICs Ae Range, Pots A© Range 
Dim Loc As Integer, theRow As integer, rows_down As integer 
Dim Cols over Aa Integer, theCol As Integer 



Dim Component As String 



Set Caps = Range (Worksheets (4) .Cells (6, 4), Worksheets (4) .Cells (IS, 19)) 
Set Res « Range (worksheets (4) . Cells (16 , 4), Worksheets (4) .Cells (21, 19)) 
Set ICs = Range (Worksheets (4) .Cells (22, 4), Worksheets (4) .Cells (25 , 19)) 
Set Pots = Range (Worksheets (4) .Cells (26, 4), Worksheets (4) . Cells (26, 19)) 

For theRow = 3 To 356 

Component «■ Worksheets (3) . Cells (theRow, 12) 
Select Case Component 
Case »C" 

Loc = Location_in_the_Range(Caps, Worksheets (3) . Cells (theRow, 13)) 
rows_down = ( (Loc - 1) \ 16) * 6 
Cols_over = (Loc - (((Loc - 1) \ 15) * 16)) +3 
Case n R rt 

Loc = Location_in_the_Range(Res, worksheets (3) . Cells (theRow, 13)) 
rows down - ((Loc""- 1) \ 16) + 16 
Cols_over = (Loc - (((Loc - 1) \ 16) * 16)) + 3 
Case "U" 

Loc = Location_in_the_Range(ICs, Worksheets (3) .Cells (theRow, 13)) 
rows_down - ((Loc - 1) \ 16) + 22 
C0lS_Over = (Loc - ({(Loc - 1) \ 16) * 16) ) +3 
Case n VR" 

Loc = Location_in_the_Range(Pots, Worksheets (3) .Cells (theRow, 13)) 
rows_down = ((Loc - "- l7 \ 16) + 26 
Cols_over = (LOC - ( ( (LOC - 1) \ 16) * 16)) +3 
Case Else 

rows_down * 2 
Cols_over = 2 
End Select 

For the Col = 3 To 9 

Worksheets (3) .Cells (theRow, theCol) = Worksheets (theCol + 2) .Cells (rows_down, Cols_pver) 
Next theCol 

Worksheets (3) .Cells (theRow, 10) = Worksheets (11) .Cells (rows_down, Cols_over) 
Next theRow 



End Sub 



Function Location_in_thejRange (RangeToSearch As Range, SearchValue As Integer) As Integer 

Dim Found As Boolean 
3im Counter As Integer 
5im C as Range 



Found » False 

For Each C In RangeToSearch 
Counter = Counter + 1 
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If c. Value = SearchValue Then 
Found = True 

Exit For 'Stop counting and testing 
End If 
Next C 

If Pound Then 

X,OCation_in_theJ*ange = Counter 

Else 

Location_in_the_Range = 0 
2nd If 



2nd Function 
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Designator Pattern 


MidX 


C1 


RB.14/,35 


8120.002 


C10 


RB.14/.35 


17780 


C100 


cerdisk.25 


8524.998 


C101 


cerdisk.25 


9820.864 


C102 


cerdisk.25 


10135 


C103 


cerdisk.25 


11430.86 


C104 


cerdisk.25 


11745 


C105 


cerdisk.25 


13040.86 


C106 


cerdisk.25 


13355 


C107 


cerdisk.25 


14650.86 


C108 


cerdisk.25 


14965 


C109 


cerdisk.25 


16260.86 


C11 


RB.14/.35 


12950 


C110 


cerdisk.25 


16575 


cm 


cerdisk.25 


17870.86 


C112 


cerdisk.25 


18185 


C113 


cerdisk.25 


7554.194 


C114 


cerdisk.25 


9164.194 


C115 


cerdisk.25 


10774.19 


C116 


cerdisk.25 


12384.19 


C117 


cerdisk.25 


13994.19 


C118 


cerdisk.25 


15604.19 


C119 


cerdisk.25 


17214.19 


C12 


RB.14/.35 


9730.002 


C120 


cerdisk.25 


18824.19 


C121 


cerdisk.25 


7554.194 


C122 


cerdisk.25 


9164.194 


C123 


cerdisk.25 


10774.19 


C124 


cerdisk.25 


12384.19 


C125 


cerdisk.25 


13994.19 


C126 


cerdisk.25 


15604.19 


C127 


cerdisk.25 


17214.19 


C128 


cerdisk.25 


18824.19 


C129 


cerdisk.25 


9389.194 


C13 


RB.14/.35 


6510.002 


C130 


cerdisk.25 


19049.19 


C131 


cerdisk.25 


14219.19 


C132 


cerdisk.25 


10999.19 


C133 


cerdisk.25 


7779.194 


C134 


cerdisk.25 


17439.19 


C135 


cerdisk.25 


14219.19 


C136 


cerdisk.25 


10999.19 


C137 


cerdisk.25 


7779.194 


C138 


cerdisk.25 


17439.19 


C139 


cerdisk.25 


15829.19 


C14 


RB.14A35 


16170 


C140 


cerdisk.25 


12609.19 


C141 


cerdisk.25 


9389.194 


C142 


cerdisk.25 


19049.19 


C143 


cerdisk.25 


15829.19 



MidY 

6608.864 
4053.864 
4129.136 
4514.998 
4129.136 
4514.998 
4129.136 
4514.998 
4129.136 
4514.998 
4129.136 
4514.998 
4053.864 
4129.136 
4514.998 
4129.136 
8520.001 
8520.001 
8520.001 
8520.001 
8520.001 
8520.001 
8520.001 
4053.864 
8520.001 
5965.001 
5965.001 
5965.001 
5965.001 
5965.001 
5965.001 
5965.001 
5965.001 
7500.004 
4053.864 
4945.004 
4945.004 
4945.004 
4945.004 
7500.004 
7500.004 
7500.004 
7500.004 
4945.004 
4945.004 
6608.864 
4945.004 
4945.004 
7500.004 
7500.004 



RefX 

8050.002 

17710 
8649.998 
9820.903 

10260 
11430.9 

11870 
13040.9 

13480 
14650.9 

15090 
16260.9 

12880 

16700 
17870.9 

18310 
7554.155 
9164.155 
10774.16 
12384.16 
13994.16 
15604.16 
17214.16 
9660.002 
18824.16 
7554.155 
9164.155 
10774.16 
12384.16 
13994.16 
15604.16 
17214.16 
18824.16 
9389.155 
6440.002 
19049.16 
14219.16 
10999.16 
7779.155 
17439.16 
14219.16 
10999.16 
7779.155 
17439.16 
15829.16 

16100 
12609.16 
9389.155 
19049.16 
15829.16 



RefY 

6608.864 
4053.864 
4129.097 
4639.998 
4129.097 
4639.998 
4129,097 
4639.998 
4129.097 
4639.998 
4129.097 
4639.998 
4053.864 
4129.097 
4639.998 
4129.097 
8395.001 
8395.001 
8395.001 
8395.001 
8395.001 
8395.001 
8395.001 
4053.864 
8395.001 
5840.001 
5840.001 
5840.001 
5840.001 
5840.001 
5840.001 
5840.001 
5840.001 
7375.004 
4053.864 
4820.004 
4820.004 
4820.004 
4820.004 
7375.004 
7375.004 
7375.004 
7375.004 
4820.004 
4820.004 
6608.864 
4820.004 
4820.004 
7375.004 
7375.004 



PadX 

8190.002 
17850 

8649.998 

9740.825 
10260 

11350.83 
11870 



PadY 

6608. 
4053 
4209 
4639. 
4209 
4639 
4209 



TB 

864 T 
864 T 
175 T 
998 T 
175 T 
998 T 
.175 T 



16700 
17790.83 

18310 
7634.233 
9244.233 
10854.23 
12464.23 
14074.23 
15684.23 
17294.23 
9800.002 
18904.23 
7634.233 
9244.233 
10854.23 
12464.23 
14074.23 
15684.23 
17294.23 
18904.23 
9469.233 
6580.002 
19129.23 
14299.23 
11079.23 
7859.233 
17519.23 
14299.23 
11079.23 
7859.233 
17519.23 
15909.23 

16240 
12689.23 
9469.233 
19129.23 
15909.23 



4209.175 1 
4639.998 T 
4209.175 T 
8395.001 
8395.001 
8395.001 
8395.001 
8395.001 
8395.001 
8395.001 



4053.864 T 



8395.001 
5840.001 
5840.001 
5840.001 
5840.001 
5840.001 
5840.001 
5840.001 
5840.001 
7375.004 
4053.864 
4820.004 
4820.004 
4820.004 
4820.004 T 
7375.004 T 
7375.004 
7375.004 
7375.004 
4820.004 
4820.004 
6608.864 
4820.004 
4820.004 
7375.004 



T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 



T 
T 
T 
T 
T 
T 
T 
T 
T 



7375.004 T 



PAGE 31/80 1 RCVD AT 1/27/2006 4:19:09 PM [Eastern Standard Time] * SVR:USPTO-EFXRF-6/29 * DNIS:2738300 * CSID: 1 6082504874 ' DURATION (mm-ss):28-32 



